home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / RECMENU.SRC < prev    next >
Text File  |  1990-11-06  |  14KB  |  371 lines
  1. ;\|
  2. ;RECMENU.SRC     Translated from RECMENU.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;RECMENU  05:47:42 PM  30/10/90   |
  4. define(TM|A|60||20)
  5. define(choice_ac|n|2||)
  6. define(choice_rec|n|2||)
  7. define(exit_choice|n|1||)
  8. define(choice_rpr|n|2||)
  9. define(choice_tag|n|2||)
  10. define(choice_list|n|2||)
  11. define(choice_rp|n|2||)
  12. define(choice_ap|n|1||)
  13. define(choice_fpc|n|2||)
  14. define(CHOICE|N|2||)
  15. define(MEN_NAME|A|47||)
  16. define(place|a|1||)
  17. define(where|n|1||)
  18. define(emory|a|1||)
  19. define(emory1|a|1||)
  20. define(emory2|a|1||)
  21. define(emory3|a|1||)
  22. define(emory4|a|1||)
  23. define(emory5|a|1||)
  24. define(emory6|a|1||)
  25. define(emory7|a|1||)
  26. define(emory8|a|1||)
  27. define(emory10|a|1||)
  28. define(flag_mem|a|1||)
  29. trap(q|g|exit?)
  30. flag_mem =mid(emory10|10|1|4)
  31. if flag_mem <> ("X") do
  32. {
  33. mount(blank|s||)
  34. saves(6)
  35. }
  36. clrscr
  37. redsp(6)
  38. where =mid(place|11|1|4)
  39. on(where|g|main;recmen;acmen;recprmen;fpcmen;tagmen;listmen;rpmen;apmen|main)
  40. MAIN:
  41. choice =mid(emory|1|1|4)
  42. where = (1)
  43. MEN_NAME = ("----------------- MAIN MENU -------------------")
  44. TM[1] = (" 1 - Age Sex Register                          01021")
  45. TM[2] = (" 2 - Recalls and FPC targets                   01032")
  46. TM[3] = (" 3 - Hospital letter A4 paper -Printer on      01043")
  47. TM[4] = (" 4 - Accounts                                  01054")
  48. TM[5] = (" 5 - Repeat prescribing                        01065")
  49. TM[6] = (" 6 - Appointments                              01076")
  50. TM[7] = (" 7 - Clinics                                   01087")
  51. TM[8] = (" 8 - Patient memo                              01098")
  52. TM[9] = (" 9 - List Maintenance - Setup                  01109")
  53. menu(19|17|11|48|0|TM|CHOICE|9|47|EXIT?||MEN_NAME|Y)
  54. on(CHOICE|G|main1;main2;main3;main4;main5;main6;main7;main8;main9|main)
  55. RECMEN:
  56. choice_rec =mid(emory|2|1|4)
  57. where = (2)
  58. MEN_NAME = ("---------------- RECALL MENU ------------------")
  59. TM[1] = (" 1 - Tag patients for recall with **** weekly  01021")
  60. TM[2] = (" 2 - Enter the tagged recalls weekly           01032")
  61. TM[3] = (" 3 - Update and maintain the recalls daily     01043")
  62. TM[4] = (" 4 - Recall printing routines                  01054")
  63. TM[5] = (" 5 - FPC target printouts                      01065")
  64. menu(30|22|7|48|0|TM|CHOICE_rec|5|47|EXIT1||MEN_NAME|Y)
  65. on(CHOICE_rec|G|recmen1;recmen2;recmen3;recmen4;recmen5|recmen)
  66. ACmen:
  67. choice_ac =mid(emory|3|1|4)
  68. where = (3)
  69. MEN_NAME = ("----------------- ACCOUNTING ------------------")
  70. TM[1] = (" 1 - Main Accounts                             01021")
  71. TM[2] = (" 2 - Claim accounts                            01032")
  72. menu(5|14|4|48|0|TM|CHOICE_AC|2|47|MAIN||MEN_NAME|N)
  73. on(CHOICE_AC|G|acmen1;acmen2|acmen)
  74. RECPRmen:
  75. choice_rpr =mid(emory|4|1|4)
  76. where = (4)
  77. MEN_NAME = ("---------RECALL PRINTOUT MENU------------------")
  78. TM[1] = (" 1 - Print out Immunisation status - weekly    01021")
  79. TM[2] = (" 2 - Print out smear status - weekly           01032")
  80. TM[3] = (" 3 - Recall report on any recall               01043")
  81. TM[4] = (" 4 - Print due recalls and labels              01054")
  82. TM[5] = (" 5 - Print immunisation letters                01065")
  83. TM[6] = (" 6 - Letter to smear DNA1 and DNA2             01076")
  84. TM[7] = (" 7 - Smear recall letter                       01087")
  85. TM[8] = (" 8 - Paediatric Survey Report                  01098")
  86. menu(2|20|10|48|0|TM|CHOICE_RPR|8|47|RECMEN||MEN_NAME|N)
  87. on(CHOICE_RPR|G|rpm1;rpm2;rpm3;rpm4;rpm5;rpm6;rpm7;rpm8|recprmen)
  88. fpcmen:
  89. choice_fpc =mid(emory|5|1|4)
  90. where = (5)
  91. MEN_NAME = ("--------- FPC TARGET PRINTING -----------------")
  92. TM[1] = (" 1 - Immunisations as FPC like them            01021")
  93. TM[2] = (" 2 - Smears as FPC should get them             01032")
  94. TM[3] = (" 3 - Labels for 1 yr / 3yr offer               01043")
  95. TM[4] = (" 4 - Letter for 1/3 year offer                 01054")
  96. TM[5] = (" 5 - Labels for over 75 offer                  01065")
  97. TM[6] = (" 6 - Letters for over 75 offer                 01076")
  98. TM[7] = (" 7 - 75+ Well Person clin.Labels and letter    01087")
  99. TM[8] = (" 8 - Alternate message for cards               01098")
  100. menu(30|11|10|48|0|TM|CHOICE_FPC|8|47|RECMEN||MEN_NAME|N)
  101. on(CHOICE_FPC|G|fpc1;fpc2;fpc3;fpc4;fpc5;fpc6;fpc7;fpc8|fpcmen)
  102. tagmen:
  103. choice_tag =mid(emory|6|1|4)
  104. where = (6)
  105. MEN_NAME = ("----------- ENTER TAGGED RECALLS --------------")
  106. TM[1] = (" 1 - Enter the tagged Smears                   01021")
  107. TM[2] = (" 2 - Enter the tagged Immunisations            01032")
  108. menu(5|14|4|48|0|TM|CHOICE_TAG|2|47|RECMEN||MEN_NAME|N)
  109. on(CHOICE_TAG|G|tag1;tag2|tagmen)
  110. listmen:
  111. choice_list =mid(emory|7|1|4)
  112. where = (7)
  113. MEN_NAME = ("----------- LIST MAINTENANCE ------------------")
  114. TM[1] = (" 1 - Setup Practice Parameters                 01021")
  115. TM[2] = (" 2 - Patient Listing by DOB and Doctor         01032")
  116. TM[3] = (" 3 - Patient List by Name or DOB               01043")
  117. TM[4] = (" 4 - Patient List by Address                   01054")
  118. TM[5] = (" 5 - Patient List not seen in past 3 years     01065")
  119. TM[6] = (" 6 - Patient list > 75 + seen info             01076")
  120. TM[7] = (" 7 - View referall statistics on screen        01087")
  121. TM[8] = (" 8 - Enter EXTRA patients seen                 01098")
  122. TM[9] = (" 9 - Enter EXTRA patient Referrals             01109")
  123. TM[10] = (" A - Print out abbreviations                   0111A")
  124. TM[11] = (" B - Not used                                  0112B")
  125. TM[12] = (" C - Numbers on list seen by age - Screen      0113C")
  126. TM[13] = (" D - Zero referral/seen statistics             0114D")
  127. menu(3|16|15|48|0|TM|CHOICE_LIST|13|47|MAIN||MEN_NAME|N)
  128. on(CHOICE_LIST|G|list1;list2;list3;list4;list5;list6;list7;list8;list9;list10;list11;list12;list13|listmen)
  129. RPMEN:
  130. choice_rp =mid(emory|8|1|4)
  131. where = (8)
  132. MEN_NAME = ("------------------ RP MENU --------------------")
  133. TM[1] = (" 1 - RP entry                                  01021")
  134. TM[2] = (" 2 - Print Demand RP'S and Labels.Printer on!  01032")
  135. TM[3] = (" 3 - Print auto RP's,etc Printer on!           01043")
  136. TM[4] = (" 4 - Print RP abbreviation list                01054")
  137. TM[5] = (" 5 - Change RP abbreviations                   01065")
  138. TM[6] = (" 6 - Change drug names globally                01076")
  139. TM[7] = (" 7 - RP report by Doctor                       01087")
  140. TM[8] = (" 8 - RP's by Address                           01098")
  141. menu(30|22|10|48|0|TM|CHOICE_RP|8|47|MAIN||MEN_NAME|N)
  142. on(CHOICE_RP|G|rp1;rp2;rp3;rp4;rp5;rp6;rp7;rp8|rpmen)
  143. apmen:
  144. choice_ap =mid(emory|9|1|4)
  145. where = (9)
  146. MEN_NAME = ("----------------- APPOINTMENTS-----------------")
  147. TM[1] = (" 1 - Appointments                              01021")
  148. TM[2] = (" 2 - Print Appoints                            01032")
  149. menu(30|20|4|48|0|TM|CHOICE_AP|2|47|MAIN||MEN_NAME|N)
  150. on(CHOICE_AP|G|ap1;ap2|apmen)
  151. EXIT?:
  152. TM[1] = (" 1 - Exit to system 01021")
  153. TM[2] = (" 2 - Don't exit     01032")
  154. menu(28|12|4|21|0|tm|exit_choice|2|20|exit?||"------ EXIT --------"|n)
  155. on(exit_choice|g|exit;main|exit?)
  156. SET_MENU:
  157. mid(EMORY|1|1|choice|4)
  158. mid(EMORY1|9|1|choice_ap|4)
  159. mid(EMORY2|2|1|choice_rec|4)
  160. mid(EMORY3|3|1|choice_ac|4)
  161. mid(EMORY4|4|1|choice_rpr|4)
  162. mid(EMORY5|5|1|choice_fpc|4)
  163. mid(EMORY6|6|1|choice_tag|4)
  164. mid(EMORY7|7|1|choice_list|4)
  165. mid(EMORY8|8|1|choice_rp|4)
  166. flag_mem = ("X")
  167. mid(EMORY10|10|1|flag_mem|4)
  168. mid(place|11|1|where|4)
  169. saves(6)
  170. ret
  171. main1:
  172. gosub set_menu
  173. run("patrec")
  174. main2:
  175. gosub set_menu
  176. goto recmen
  177. main3:
  178. gosub set_menu
  179. run("let70")
  180. main4:
  181. gosub set_menu
  182. goto acmen
  183. main5:
  184. gosub set_menu
  185. goto rpmen
  186. main6:
  187. gosub set_menu
  188. goto apmen
  189. main7:
  190. gosub set_menu
  191. run("clin_men")
  192. main8:
  193. gosub set_menu
  194. run("memo")
  195. main9:
  196. gosub set_menu
  197. goto listmen
  198. recmen1:
  199. gosub set_menu
  200. run("entrecal")
  201. recmen2:
  202. gosub set_menu
  203. goto tagmen
  204. recmen3:
  205. gosub set_menu
  206. run("patrec")
  207. recmen4:
  208. gosub set_menu
  209. goto recprmen
  210. recmen5:
  211. gosub set_menu
  212. goto fpcmen
  213. acmen1:
  214. gosub set_menu
  215. run("code")
  216. acmen2:
  217. gosub set_menu
  218. run("claim")
  219. rpm1:
  220. gosub set_menu
  221. run("checkim")
  222. rpm2:
  223. gosub set_menu
  224. run("checksm")
  225. rpm3:
  226. gosub set_menu
  227. run("reponly")
  228. rpm4:
  229. gosub set_menu
  230. run("recalls")
  231. rpm5:
  232. gosub set_menu
  233. run("recall2")
  234. rpm6:
  235. gosub set_menu
  236. run("sm_let")
  237. rpm7:
  238. gosub set_menu
  239. run("recall3")
  240. rpm8:
  241. gosub set_menu
  242. run("preport")
  243. fpc1:
  244. gosub set_menu
  245. run("fpcimm")
  246. fpc2:
  247. gosub set_menu
  248. run("fpcsmhys")
  249. fpc3:
  250. gosub set_menu
  251. run("3yrlabcd")
  252. fpc4:
  253. gosub set_menu
  254. run("3yrlet")
  255. fpc5:
  256. gosub set_menu
  257. run("75labcrd")
  258. fpc6:
  259. gosub set_menu
  260. run("75let")
  261. fpc7:
  262. gosub set_menu
  263. run("75wpc2lb")
  264. fpc8:
  265. gosub set_menu
  266. run("mess")
  267. tag1:
  268. gosub set_menu
  269. run("findsm")
  270. tag2:
  271. gosub set_menu
  272. run("findim")
  273. list1:
  274. gosub set_menu
  275. run("gpsetup")
  276. list2:
  277. gosub set_menu
  278. run("age_sex")
  279. list3:
  280. gosub set_menu
  281. run("patlist")
  282. list4:
  283. gosub set_menu
  284. run("adlist")
  285. list5:
  286. gosub set_menu
  287. run("seen_rep")
  288. list6:
  289. gosub set_menu
  290. run("over75")
  291. list7:
  292. gosub set_menu
  293. run("ref_view")
  294. list8:
  295. gosub set_menu
  296. run("ent_seen")
  297. list9:
  298. gosub set_menu
  299. run("ent_ref")
  300. list10:
  301. gosub set_menu
  302. run("abrvrpt")
  303. list11:
  304. gosub set_menu
  305. run("recmenu")
  306. list12:
  307. gosub set_menu
  308. run("seen")
  309. list13:
  310. gosub set_menu
  311. run("close")
  312. rp1:
  313. gosub set_menu
  314. run("patient")
  315. rp2:
  316. gosub set_menu
  317. run("printdem")
  318. rp3:
  319. gosub set_menu
  320. run("printall")
  321. rp4:
  322. gosub set_menu
  323. run("rpabvrpt")
  324. rp5:
  325. gosub set_menu
  326. run("rpabbrev")
  327. rp6:
  328. gosub set_menu
  329. run("rpchange")
  330. rp7:
  331. gosub set_menu
  332. run("rpdoc")
  333. rp8:
  334. gosub set_menu
  335. run("adrp")
  336. ap1:
  337. gosub set_menu
  338. run("fappoint")
  339. ap2:
  340. gosub set_menu
  341. run("printap")
  342. EXIT:
  343. fillmem(4|1|12|"*")
  344. run("EX")
  345. EXIT1:
  346. mount(blank|s||)
  347. goto MAIN
  348. \SSBLANK   
  349.  p p p┌p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p┐p p p p p p p p│p pGpPp pMpEpNpUp pSpYpSp
  350. TpEpMp pvp2p7p p(p6p.p1p1p.p9p0p)p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p│p p p p p p p p└p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p
  351. ─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p─p┘p p p p p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  352. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  353. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  354. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  355. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  356. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  357. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  358. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  359. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  360. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  361. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  362. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  363. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  364. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  365. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  366. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  367. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  368. ▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p▓p
  369. \
  370. \
  371.